home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
MATH
/
NRPAS13
/
PIKSRT.DEM
< prev
next >
Wrap
Text File
|
1991-04-29
|
784b
|
40 lines
PROGRAM d8r1(input,output,dfile);
(* driver for routine PIKSRT *)
CONST
np=100;
TYPE
glsarray = ARRAY [1..np] OF real;
VAR
i,j : integer;
a : glsarray;
dfile : text;
(*$I MODFILE.PAS *)
(*$I PIKSRT.PAS *)
BEGIN
glopen(dfile,'tarray.dat');
readln(dfile);
FOR i := 1 to 100 DO BEGIN
read(dfile,a[i])
END;
close(dfile);
(* write original array *)
writeln ('original array:');
FOR i := 1 to 10 DO BEGIN
FOR j := 1 to 10 DO BEGIN
write(a[10*(i-1)+j]:6:2)
END;
writeln
END;
(* write sorted array *)
piksrt(np,a);
writeln('sorted array:');
FOR i := 1 to 10 DO BEGIN
FOR j := 1 to 10 DO BEGIN
write(a[10*(i-1)+j]:6:2)
END;
writeln
END
END.